home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue62 / Construc / UNIT62.DFM < prev    next >
Encoding:
Text File  |  2000-09-06  |  3.7 KB  |  159 lines
  1. object Form1: TForm1
  2.   Left = 280
  3.   Top = 148
  4.   Width = 460
  5.   Height = 255
  6.   Caption = 'Under Construction #62 - TableXML'
  7.   Color = clBtnFace
  8.   Constraints.MaxWidth = 460
  9.   Constraints.MinHeight = 255
  10.   Constraints.MinWidth = 400
  11.   Font.Charset = DEFAULT_CHARSET
  12.   Font.Color = clWindowText
  13.   Font.Height = -11
  14.   Font.Name = 'MS Sans Serif'
  15.   Font.Style = []
  16.   OldCreateOrder = False
  17.   Position = poScreenCenter
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label1: TLabel
  21.     Left = 8
  22.     Top = 204
  23.     Width = 48
  24.     Height = 13
  25.     Caption = 'Outputfile:'
  26.   end
  27.   object DBGrid1: TDBGrid
  28.     Left = 6
  29.     Top = 6
  30.     Width = 441
  31.     Height = 185
  32.     DataSource = DataSource1
  33.     TabOrder = 0
  34.     TitleFont.Charset = DEFAULT_CHARSET
  35.     TitleFont.Color = clWindowText
  36.     TitleFont.Height = -11
  37.     TitleFont.Name = 'MS Sans Serif'
  38.     TitleFont.Style = []
  39.     Columns = <
  40.       item
  41.         Expanded = False
  42.         FieldName = 'FieldName'
  43.         Title.Font.Charset = DEFAULT_CHARSET
  44.         Title.Font.Color = clWindowText
  45.         Title.Font.Height = -11
  46.         Title.Font.Name = 'MS Sans Serif'
  47.         Title.Font.Style = [fsBold]
  48.         Width = 300
  49.         Visible = True
  50.       end
  51.       item
  52.         Expanded = False
  53.         FieldName = 'FieldType'
  54.         PickList.Strings = (
  55.           'AutoInc'
  56.           'BCD'
  57.           'Blob'
  58.           'Boolean'
  59.           'Bytes'
  60.           'Currency'
  61.           'Date'
  62.           'DateTime'
  63.           'dBaseOle'
  64.           'FixedChar'
  65.           'Float'
  66.           'FmtMemo'
  67.           'Graphic'
  68.           'Integer'
  69.           'Memo'
  70.           'ParadoxOle'
  71.           'Smallint'
  72.           'String'
  73.           'Time'
  74.           'TypedBinary'
  75.           'VarBytes'
  76.           'WideString'
  77.           'Word')
  78.         Title.Font.Charset = DEFAULT_CHARSET
  79.         Title.Font.Color = clWindowText
  80.         Title.Font.Height = -11
  81.         Title.Font.Name = 'MS Sans Serif'
  82.         Title.Font.Style = [fsBold]
  83.         Width = 80
  84.         Visible = True
  85.       end
  86.       item
  87.         Expanded = False
  88.         FieldName = 'Size'
  89.         Title.Font.Charset = DEFAULT_CHARSET
  90.         Title.Font.Color = clWindowText
  91.         Title.Font.Height = -11
  92.         Title.Font.Name = 'MS Sans Serif'
  93.         Title.Font.Style = [fsBold]
  94.         Width = 32
  95.         Visible = True
  96.       end>
  97.   end
  98.   object ButtonCancel: TButton
  99.     Left = 374
  100.     Top = 199
  101.     Width = 75
  102.     Height = 25
  103.     Anchors = [akRight, akBottom]
  104.     Cancel = True
  105.     Caption = 'Cancel'
  106.     ModalResult = 2
  107.     TabOrder = 1
  108.   end
  109.   object ButtonOK: TButton
  110.     Left = 294
  111.     Top = 199
  112.     Width = 75
  113.     Height = 25
  114.     Anchors = [akRight, akBottom]
  115.     Caption = 'OK'
  116.     Default = True
  117.     ModalResult = 1
  118.     TabOrder = 2
  119.     OnClick = ButtonOKClick
  120.   end
  121.   object EditFileName: TEdit
  122.     Left = 64
  123.     Top = 200
  124.     Width = 129
  125.     Height = 21
  126.     TabOrder = 3
  127.     Text = 'c:\table.xml'
  128.   end
  129.   object CDS: TClientDataSet
  130.     Active = True
  131.     Aggregates = <>
  132.     Params = <>
  133.     Left = 88
  134.     Top = 128
  135.     Data = {
  136.       6F0000009619E0BD0100000018000000030000000000030000006F0009466965
  137.       6C644E616D650100490010000100055749445448020002006400094669656C64
  138.       5479706501004900100001000557494454480200020018000453697A65010049
  139.       00100001000557494454480200020004000000}
  140.     object CDSFieldName: TStringField
  141.       FieldName = 'FieldName'
  142.       Size = 100
  143.     end
  144.     object CDSFieldType: TStringField
  145.       FieldName = 'FieldType'
  146.       Size = 24
  147.     end
  148.     object CDSSize: TStringField
  149.       FieldName = 'Size'
  150.       Size = 4
  151.     end
  152.   end
  153.   object DataSource1: TDataSource
  154.     DataSet = CDS
  155.     Left = 208
  156.     Top = 128
  157.   end
  158. end
  159.